home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / GCC 1.37.1r14 / usr / gcc-1.37.1r14 / non-obj files / testing.c < prev    next >
Encoding:
Text File  |  1993-11-09  |  910 b   |  70 lines  |  [TEXT/KAHL]
  1. #undef malloc
  2. #undef calloc
  3. #undef realloc
  4. #undef free
  5.  
  6. static logging = 0;
  7.  
  8. init_xalloc(void)
  9.     {
  10.     logging = 0;
  11.     }
  12.     
  13. end_xalloc(void)
  14.     {
  15.     logging = 0;
  16.     }
  17.  
  18. static unsigned long probef(void) = 0x2016;
  19.  
  20. void xdebug_tree(void *addr)
  21.     {
  22.     if (logging) 
  23.         {
  24.         logging = 0;
  25.         debug_dump_tree(addr);
  26.         logging = 1;
  27.         }
  28.     }
  29.     
  30. void *xmalloc(long siz)
  31.     {
  32.     void *tmp;
  33.     if (logging) 
  34.         {
  35.         logging = 0;
  36.         fprintf(stderr,"xmalloc %ld at %lx\n", siz, probef());
  37.         logging = 1;
  38.         }
  39.     tmp = malloc(siz);
  40.     bzero(tmp, siz);
  41.     return tmp;
  42.     }
  43.     
  44. void *xrealloc(void *ptr, long siz)
  45.     {
  46.     if (logging) 
  47.         {
  48.         logging = 0;
  49.         fprintf(stderr,"xrealloc %ld at %lx\n", siz, probef());
  50.         logging = 1;
  51.         }
  52.     return realloc(ptr, siz);
  53.     }
  54.     
  55. void *xcalloc(long x,long y)
  56.     {
  57.     if (logging) 
  58.         {
  59.         logging = 0;
  60.         fprintf(stderr,"xcalloc %ld at %lx\n", x*y, probef());
  61.         logging = 1;
  62.         }
  63.     return calloc(x,y);
  64.     }
  65.     
  66. void xfree(void *ptr)
  67.     {
  68.     free(ptr);
  69.     }
  70.